home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / databasev3.1reg.lha / db3.1 / Examples / ARexxDemos / multiview.db < prev    next >
Text File  |  1996-01-01  |  318b  |  17 lines
  1. /* Rexxprogram for db that passes data in the current field to multiview */
  2. /* By David Ekholm */
  3.  
  4. Options Results
  5. BLOCKINPUT
  6. GETFIELD
  7. file = RESULT
  8. IF RC = "0" THEN DO
  9.     IF EXISTS(file) THEN
  10.         ADDRESS COMMAND "run >nil: Multiview " '"'file'"'
  11.     ELSE
  12.         OKAY1 "`"file"' does not exist."
  13. END
  14. FREEINPUT
  15.  
  16.  
  17.